home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1634copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.4 KB  |  37 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1634"
  4. Company = " Williams Entertainment "
  5. title = " Doom "
  6. Price = 59.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "PlayStation"
  13. Title Description = " All hell's breaking loose. With over 50 levels of madness and mayhem from the Ultimate Doom and Doom II in a sweat-soaked, pulse-pounding, adrenaline-wrenching version for the Sony PlayStation. With all new ambient lighting effects in full color and super fast speed - up to 30 frames/second. Supports Sony's unique Link Cable for two-player Deathmatch or Cooperative play."
  14. -------------------------------------
  15. dline = ""
  16. counter = 0
  17. repeat while dline <> title number
  18. counter = counter + 1
  19. dline = GetWord(1,   GetLine(titl,counter) )   
  20. test(dline = title number, LineInTitle = counter)
  21. end repeat 
  22. starttitle = LineInTitle
  23. num of titles shown = 6
  24. endtitle = starttitle + num of titles shown - 1
  25. titles = ""
  26. title highlight = ""
  27. repeat with counter = starttitle to endtitle
  28. nextline = GetLine(titl,counter)
  29. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  30. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  31. end repeat
  32. dpage = CurrentPageID
  33.  
  34. newtitle = FALSE
  35. end if
  36.  
  37.